DMM EDA for Histograms

dmm_data <- read.csv('/Users/abhisheksharma/Desktop/R_MoC/data/project.csv')
require(ggplot2)

## Loading required package: ggplot2

require(ggthemes)

## Loading required package: ggthemes

## Warning: package 'ggthemes' was built under R version 3.1.3

variables <- read.csv('/Users/abhisheksharma/Desktop/R_MoC/data/variables.csv',header = TRUE)
colnames(dmm_data) <-variables[,2][1:201]
var.titles <- variables[,3][1:201]
dmm.cols <- colnames(dmm_data[2:201])

Plot the histograms of the product related data seperately

###PLOTTING DATA
for(i in dmm.cols[2:24]){
  print(ggplot(dmm_data, aes(x=get(i), fill=factor(Objective))) +
        theme_wsj() +
        geom_histogram(position="dodge",binwidth = diff(range(dmm_data[,i]))/30) +
        xlab(i) +
        ylab(paste('Frequency of',i)) +
        ggtitle(paste('Histogram Of',i)) +    
        scale_fill_hue(name="Objective",
                       labels=c("Non-Respondent", "Respondent"),l=50) 
        
        )
}

Theses histograms of all other types.

i <- 'gender2'
for(i in dmm.cols[25:200]){
  title <- paste('Hist Of',variables$Explanation[i == variables$Var.name])
  print(ggplot(dmm_data, aes(x=get(i), fill=factor(Objective))) +
        theme_economist(base_size = 10) +
        geom_histogram(position="dodge",binwidth = diff(range(dmm_data[,i]))/30) +
        xlab(i) +
        ylab(paste('Frequency of',i)) +
        ggtitle(title) +
        scale_fill_hue(name="Objective",
                       labels=c("Non-Respondent", "Respondent"),l=50) 
        )
}

## Warning: position_dodge requires constant width: output may be incorrect

## Warning: position_dodge requires constant width: output may be incorrect